home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / LANG / SCHEME / GNU / SCM4E1 / !Scm / scm / ScmInit < prev    next >
Text File  |  1994-07-31  |  533b  |  23 lines
  1. ;;; ScmInit - user startup files.
  2. ;;; put anything in here if you want it executed on every startup.
  3. ;;; note that SCM does not echo the fact it is loading this...
  4.  
  5. (define (ed fname)
  6.     (system (string-append "vi <scm$dir>." fname))
  7. )
  8.  
  9.  
  10. ;
  11. ; Set the gfx origin then call the turtle setup to point it due north,
  12. ; and move the gfx pen to where we asked the origin to be.
  13. ;
  14. (define (go)
  15.     (begin
  16.         (mode 12)
  17.         (graphics-origin! 320 200)
  18.         (init-turtle 320 200 90)
  19.     ))
  20.  
  21. ; comment this out if you like.
  22. (display "Loaded ScmInit.")(newline)
  23.